home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / data1.cab / Program_Executable_Files / colsoncd.dxr / 00001Series_294.ls < prev    next >
Encoding:
Text File  |  2000-01-12  |  491 b   |  22 lines
  1. on mouseUp
  2.   puppetSound("mainsnd")
  3.   put "9" into field "bemodnum"
  4.   put EMPTY into field "comodnum"
  5.   put EMPTY into field "bearingoption"
  6.   if field "whmodnum" = "34" then
  7.     put ".9" into field "comodnum"
  8.   end if
  9.   if field "whmodnum" = "35" then
  10.     put ".9" into field "comodnum"
  11.   end if
  12.   put EMPTY into field "whexmodnum"
  13.   puppetTransition(47, 1, 8)
  14.   if field "sermodnum" = 3 then
  15.     play frame "3rollera"
  16.     abort()
  17.   else
  18.     play frame "4arollera"
  19.     abort()
  20.   end if
  21. end
  22.